home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / prolog / ai.prl / opnprlg1.hqx / Open Prolog / Open Prolog.rsrc / CODE_20_current_op.txt < prev    next >
Text File  |  1993-04-15  |  12KB  |  227 lines
  1. # near model CODE resource
  2. # entry label at 0x0000
  3. export_397:
  4. entry:
  5. label00000000:
  6. 00000000  08EA 0007 0025           bset.b     [A2 + 0x25], 0x7
  7. 00000006  6622                     bne        +0x24 /* 0000002A */
  8. 00000008  257C 0000 004C 0050      move.l     [A2 + 0x50], 0x4C /* 'L' */
  9. 00000010  257C 0000 0008 0054      move.l     [A2 + 0x54], 0x8
  10. 00000018  08AA 0000 005C           bclr.b     [A2 + 0x5C], 0x0
  11. 0000001E  08AA 0001 005C           bclr.b     [A2 + 0x5C], 0x1
  12. 00000024  256D E8A8 0058           move.l     [A2 + 0x58], [A5 - 0x1758]
  13. label0000002A:
  14. 0000002A  4E56 FEFC                link       A6, -0x0104
  15. 0000002E  426E FFFE                clr.w      [A6 - 0x2]
  16. 00000032  4CEA 0003 0030           movem.l    D1,D0, [A2 + 0x30]
  17. 00000038  4A80                     tst.l      D0
  18. 0000003A  6F10                     ble        +0x12 /* 0000004C */
  19. 0000003C  0C80 0000 0020           cmpi.l     D0, 0x20 /* ' ' */
  20. 00000042  6600 020C                bne        +0x20E /* 00000250 */
  21. 00000046  08EE 0002 FFFE           bset.b     [A6 - 0x2], 0x2
  22. label0000004C:
  23. 0000004C  4CEA 0003 0038           movem.l    D1,D0, [A2 + 0x38]
  24. 00000052  4A80                     tst.l      D0
  25. 00000054  6F10                     ble        +0x12 /* 00000066 */
  26. 00000056  0C80 0000 0018           cmpi.l     D0, 0x18
  27. 0000005C  6600 01F2                bne        +0x1F4 /* 00000250 */
  28. 00000060  08EE 0001 FFFE           bset.b     [A6 - 0x2], 0x1
  29. label00000066:
  30. 00000066  4CEA 0003 0040           movem.l    D1,D0, [A2 + 0x40]
  31. 0000006C  4A80                     tst.l      D0
  32. 0000006E  6F10                     ble        +0x12 /* 00000080 */
  33. 00000070  0C80 0000 0018           cmpi.l     D0, 0x18
  34. 00000076  6600 01D8                bne        +0x1DA /* 00000250 */
  35. 0000007A  08EE 0000 FFFE           bset.b     [A6 - 0x2], 0x0
  36. label00000080:
  37. 00000080  6010                     bra        +0x12 /* 00000092 */
  38. 00000082  0001 0005                ori.b      D1, 0x5
  39. 00000086  0009 0101                ori.b      A1, 0x1
  40. 0000008A  0021 0021                ori.b      -[A1], 0x21 /* '!' */
  41. 0000008E  0011 0101                ori.b      [A1], 0x1
  42. label00000092:
  43. 00000092  7000                     moveq.l    D0, 0x00
  44. 00000094  102E FFFE                move.b     D0, [A6 - 0x2]
  45. 00000098  D040                     add.w      D0, D0
  46. 0000009A  303B 00E6                move.w     D0, [PC + D0.w - 0x1A]
  47. 0000009E  0800 0008                btst.b     D0, 0x8
  48. 000000A2  6700 005C                beq        +0x5E /* 00000100 */
  49. 000000A6  08EA 0001 005C           bset.b     [A2 + 0x5C], 0x1
  50. 000000AC  2400                     move.l     D2, D0
  51. 000000AE  206A 0044                movea.l    A0, [A2 + 0x44]
  52. 000000B2  D1ED E8A8                add.l      A0, [A5 - 0x1758]
  53. 000000B6  43EE FEFC                lea.l      A1, [A6 - 0x104]
  54. 000000BA  4EAD 08DA                jsr        [A5 + 0x8DA]
  55. 000000BE  32BC 0002                move.w     [A1], 0x2
  56. 000000C2  222A 003C                move.l     D1, [A2 + 0x3C]
  57. 000000C6  B2AD F1F0                cmp.l      D1, [A5 - 0xE10]
  58. 000000CA  6710                     beq        +0x12 /* 000000DC */
  59. 000000CC  B2AD F1E8                cmp.l      D1, [A5 - 0xE18]
  60. 000000D0  670A                     beq        +0xC /* 000000DC */
  61. 000000D2  B2AD F1F8                cmp.l      D1, [A5 - 0xE08]
  62. 000000D6  6704                     beq        +0x6 /* 000000DC */
  63. 000000D8  32BC 0001                move.w     [A1], 0x1
  64. label000000DC:
  65. 000000DC  4240                     clr.w      D0
  66. 000000DE  4EAD 0892                jsr        [A5 + 0x892]
  67. 000000E2  6500 0170                bcs        +0x172 /* 00000254 */
  68. 000000E6  2040                     movea.l    A0, D0
  69. 000000E8  D1ED E8A8                add.l      A0, [A5 - 0x1758]
  70. 000000EC  2002                     move.l     D0, D2
  71. 000000EE  6000 0066                bra        +0x68 /* 00000156 */
  72. 000000F2  0800 0002                btst.b     D0, 0x2
  73. 000000F6  6708                     beq        +0xA /* 00000100 */
  74. 000000F8  222A 0044                move.l     D1, [A2 + 0x44]
  75. 000000FC  6000 003E                bra        +0x40 /* 0000013C */
  76. label00000100:
  77. 00000100  0800 0005                btst.b     D0, 0x5
  78. 00000104  6708                     beq        +0xA /* 0000010E */
  79. 00000106  222A 0034                move.l     D1, [A2 + 0x34]
  80. 0000010A  6000 0030                bra        +0x32 /* 0000013C */
  81. label0000010E:
  82. 0000010E  0800 0003                btst.b     D0, 0x3
  83. 00000112  6710                     beq        +0x12 /* 00000124 */
  84. 00000114  222A 003C                move.l     D1, [A2 + 0x3C]
  85. 00000118  4EAD 0D8A                jsr        [A5 + 0xD8A]
  86. 0000011C  E149                     lsl        D1.w, 8
  87. 0000011E  EB49                     lsl        D1.w, 5
  88. 00000120  6000 001A                bra        +0x1C /* 0000013C */
  89. label00000124:
  90. 00000124  0800 0004                btst.b     D0, 0x4
  91. 00000128  6712                     beq        +0x14 /* 0000013C */
  92. 0000012A  4CEA 0002 003C           movem.l    D1, [A2 + 0x3C]
  93. 00000130  4EAD 0D8A                jsr        [A5 + 0xD8A]
  94. 00000134  E149                     lsl        D1.w, 8
  95. 00000136  EB49                     lsl        D1.w, 5
  96. 00000138  D2AA 0034                add.l      D1, [A2 + 0x34]
  97. label0000013C:
  98. 0000013C  206A 0058                movea.l    A0, [A2 + 0x58]
  99. 00000140  082A 0000 005C           btst.b     [A2 + 0x5C], 0x0
  100. 00000146  6612                     bne        +0x14 /* 0000015A */
  101. 00000148  08AA 0000 005C           bclr.b     [A2 + 0x5C], 0x0
  102. 0000014E  4EAD 0D7A                jsr        [A5 + 0xD7A]
  103. 00000152  6500 00FC                bcs        +0xFE /* 00000250 */
  104. label00000156:
  105. 00000156  2548 0058                move.l     [A2 + 0x58], A0
  106. label0000015A:
  107. 0000015A  0800 0002                btst.b     D0, 0x2
  108. 0000015E  6626                     bne        +0x28 /* 00000186 */
  109. 00000160  43EE FEFC                lea.l      A1, [A6 - 0x104]
  110. 00000164  4EAD 08DA                jsr        [A5 + 0x8DA]
  111. 00000168  4251                     clr.w      [A1]
  112. 0000016A  4240                     clr.w      D0
  113. 0000016C  4EAD 087A                jsr        [A5 + 0x87A]
  114. 00000170  2200                     move.l     D1, D0
  115. 00000172  7018                     moveq.l    D0, 0x18
  116. 00000174  4CEA 000C 0040           movem.l    D3,D2, [A2 + 0x40]
  117. 0000017A  4EAD 0D42                jsr        [A5 + 0xD42]
  118. 0000017E  6900 00AC                bvs        +0xAE /* 0000022C */
  119. 00000182  6500 00D0                bcs        +0xD2 /* 00000254 */
  120. label00000186:
  121. 00000186  2008                     move.l     D0, A0
  122. 00000188  226D E8A8                movea.l    A1, [A5 - 0x1758]
  123. 0000018C  9089                     sub.l      D0, A1
  124. 0000018E  4EAD 08C2                jsr        [A5 + 0x8C2]
  125. 00000192  6500 00C0                bcs        +0xC2 /* 00000254 */
  126. 00000196  0C28 0001 0007           cmpi.b     [A0 + 0x7], 0x1
  127. 0000019C  660A                     bne        +0xC /* 000001A8 */
  128. 0000019E  086A 0000 005C           bchg.b     [A2 + 0x5C], 0x0
  129. 000001A4  6702                     beq        +0x4 /* 000001A8 */
  130. 000001A6  5480                     addq.l     D0, 2
  131. label000001A8:
  132. 000001A8  3031 0800                move.w     D0, [A1 + D0]
  133. 000001AC  6700 00A6                beq        +0xA8 /* 00000254 */
  134. 000001B0  3D40 FFFC                move.w     [A6 - 0x4], D0
  135. 000001B4  7200                     moveq.l    D1, 0x00
  136. 000001B6  1228 0007                move.b     D1, [A0 + 0x7]
  137. 000001BA  7020                     moveq.l    D0, 0x20
  138. 000001BC  4CEA 000C 0048           movem.l    D3,D2, [A2 + 0x48]
  139. 000001C2  4EAD 0D42                jsr        [A5 + 0xD42]
  140. 000001C6  6500 008C                bcs        +0x8E /* 00000254 */
  141. 000001CA  302E FFFC                move.w     D0, [A6 - 0x4]
  142. 000001CE  0280 0000 1FFF           andi.l     D0, 0x1FFF
  143. 000001D4  2200                     move.l     D1, D0
  144. 000001D6  7020                     moveq.l    D0, 0x20
  145. 000001D8  4CEA 000C 0030           movem.l    D3,D2, [A2 + 0x30]
  146. 000001DE  4EAD 0D42                jsr        [A5 + 0xD42]
  147. 000001E2  6500 0070                bcs        +0x72 /* 00000254 */
  148. 000001E6  322E FFFC                move.w     D1, [A6 - 0x4]
  149. 000001EA  E049                     lsr        D1.w, 8
  150. 000001EC  EA49                     lsr        D1.w, 5
  151. 000001EE  4EAD 0D92                jsr        [A5 + 0xD92]
  152. 000001F2  7018                     moveq.l    D0, 0x18
  153. 000001F4  4CEA 000C 0038           movem.l    D3,D2, [A2 + 0x38]
  154. 000001FA  4EAD 0D42                jsr        [A5 + 0xD42]
  155. 000001FE  6500 0054                bcs        +0x56 /* 00000254 */
  156. 00000202  4E5E                     unlink     A6
  157. 00000204  082A 0001 005C           btst.b     [A2 + 0x5C], 0x1
  158. 0000020A  6712                     beq        +0x14 /* 0000021E */
  159. 0000020C  082A 0000 005C           btst.b     [A2 + 0x5C], 0x0
  160. 00000212  660A                     bne        +0xC /* 0000021E */
  161. 00000214  B5ED E868                cmpa.l     A2, [A5 - 0x1798]
  162. 00000218  6604                     bne        +0x6 /* 0000021E */
  163. 0000021A  2B52 E868                move.l     [A5 - 0x1798], [A2]
  164. label0000021E:
  165. 0000021E  7460                     moveq.l    D2, 0x60
  166. 00000220  357C 0002 0006           move.w     [A2 + 0x6], 0x2
  167. 00000226  7600                     moveq.l    D3, 0x00
  168. 00000228  4EED 0532                jmp        [A5 + 0x532]
  169. label0000022C:
  170. 0000022C  4E5E                     unlink     A6
  171. 0000022E  2F3C 0000 000D           move.l     -[A7], 0xD /* '\r' */
  172. 00000234  42A7                     clr.l      -[A7]
  173. 00000236  42A7                     clr.l      -[A7]
  174. 00000238  42A7                     clr.l      -[A7]
  175. 0000023A  487A 004A                pea.l      [PC + 0x4A /* 00000286, pstring "system$current$op" */]
  176. 0000023E  3F3C 0004                move.w     -[A7], 0x4
  177. 00000242  4EAD 0D3A                jsr        [A5 + 0xD3A]
  178. 00000246  301B                     move.w     D0, [A3]+
  179. 00000248  3036 000C                move.w     D0, [A6 + D0.w + 0xC]
  180. 0000024C  4EF6 000C                jmp        [A6 + D0.w + 0xC]
  181. label00000250:
  182. 00000250  2B52 E868                move.l     [A5 - 0x1798], [A2]
  183. label00000254:
  184. 00000254  082A 0001 005C           btst.b     [A2 + 0x5C], 0x1
  185. 0000025A  6704                     beq        +0x6 /* 00000260 */
  186. 0000025C  2B52 E868                move.l     [A5 - 0x1798], [A2]
  187. label00000260:
  188. 00000260  357C 0002 0006           move.w     [A2 + 0x6], 0x2
  189. 00000266  4E5E                     unlink     A6
  190. 00000268  4EED 00F2                jmp        [A5 + 0xF2]
  191. 0000026C  4E5E                     unlink     A6
  192. 0000026E  4E75                     rts
  193. 00000270  9342                     subx.w     D1, D2
  194. 00000272  2573 7973 7465 6D2E 6375 7272 656E move.l     [A2 + 0x656E], [[A3 + 0x74656D2E] + 0x63757272]
  195. 00000280  742E                     moveq.l    D2, 0x2E
  196. 00000282  6F70                     ble        +0x72 /* 000002F4 */
  197. 00000284  0000 1173                ori.b      D0, 0x73 /* 's' */
  198. 00000288  7973                     moveq.l    D4, 0x73
  199. 0000028A  7465                     moveq.l    D2, 0x65
  200. 0000028C  6D24                     blt        +0x26 /* 000002B2 */
  201. 0000028E  6375                     bls        +0x77 /* 00000305 */
  202. 00000290  7272                     moveq.l    D1, 0x72
  203. 00000292  656E                     bcs        +0x70 /* 00000302 */
  204. 00000294  7424                     moveq.l    D2, 0x24
  205. 00000296  6F70                     ble        +0x72 /* 00000308 */
  206. export_398:
  207. 00000298  4EFA FD66                jmp        [PC - 0x29A /* 00000000 */]
  208. 0000029C  4E5E                     unlink     A6
  209. 0000029E  4E75                     rts
  210. 000002A0  8D42 2563                pack       D6, D2, 0x2563
  211. 000002A4  7572                     moveq.l    D2, 0x72
  212. 000002A6  7265                     moveq.l    D1, 0x65
  213. 000002A8  6E74                     bgt        +0x76 /* 0000031E */
  214. 000002AA  5F6F 7020                subq.w     [A7 + 0x7020], 7
  215. 000002AE  0000 4EFA                ori.b      D0, 0xFA
  216. export_399: // at 000002B0 (misaligned)
  217. label000002B2:
  218. 000002B2  FD4E                     .extension 0xD4E // unimplemented
  219. 000002B4  4E5E                     unlink     A6
  220. 000002B6  4E75                     rts
  221. 000002B8  8D42 2563                pack       D6, D2, 0x2563
  222. 000002BC  7572                     moveq.l    D2, 0x72
  223. 000002BE  7265                     moveq.l    D1, 0x65
  224. 000002C0  6E74                     bgt        +0x76 /* 00000336 */
  225. 000002C2  5F6F 7020                subq.w     [A7 + 0x7020], 7
  226. 000002C6  0000                     .incomplete
  227.